home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / tcp / mFinger10.lha / mFinger / Install mFinger next >
Text File  |  1996-11-28  |  3KB  |  129 lines
  1. ; $VER: mFinger installer 0.1 (26.11.96)
  2. ; by Remco van Hooff
  3. ; ============================================================================
  4. ;
  5. ; init =======================================================================
  6.  
  7. (set mfver "1.0")
  8. (set destdir "Work:")
  9. (set catdir "catalogs")
  10.  
  11. ; define procedures ==========================================================
  12.  
  13. (procedure installmf
  14.    (copyfiles
  15.       (prompt ("Installing \"%s\"." file))
  16.       (help @copyfiles-help)
  17.       (source file)
  18.       (dest destdir)
  19.    )
  20. )
  21.  
  22. (procedure installmf2
  23.    (copylib
  24.       (prompt ("Installing \"%s\"." file))
  25.       (help @copyfiles-help)
  26.       (source file)
  27.       (dest "Mui:libs/mui")
  28.    )
  29. )
  30.  
  31. ; msg ========================================================================
  32.  
  33. (Welcome ("\n\n\nThis installer script will install mFinger %s and the needed MUI classes." mfver))
  34.  
  35. ; install the MUI classes ====================================================
  36.  
  37. (set mui (exists "mui:"))
  38. (if (= mui 2)
  39.     (
  40.      (set file "Libs/MUI/NFloattext.mcc")
  41.      (installmf2)
  42.  
  43.      (set file "Libs/mui/NList.mcc")
  44.      (installmf2)
  45.  
  46.      (set file "Libs/mui/NListview.mcc")
  47.      (installmf2)
  48.  
  49.      (set file "Libs/mui/NListviews.mcp")
  50.      (installmf2)
  51.     )
  52.     (abort "You don't seem to have MUI installed.")
  53. )
  54.  
  55. ; select dest dir ============================================================
  56.  
  57. (set destdir
  58.     (askdir
  59.        (prompt "Where do you want to install mFinger?\nNo directory will be created.")
  60.        (help "Select a directory where you want to place mFinger and it's documentation.")
  61.        (default destdir )
  62.     )
  63. )
  64. (set @default-dest destdir)
  65.  
  66. ; copy the mFinger files =====================================================
  67.  
  68. (set file "mFinger")
  69. (installmf)
  70.  
  71. (set file "mFinger.info")
  72. (installmf)
  73.  
  74. (set file "mFinger.guide")
  75. (installmf)
  76.  
  77. (set file "mFinger.guide.info")
  78. (installmf)
  79.  
  80. ; install catalogs ===========================================================
  81. (set catalog
  82.    (askoptions
  83.           (prompt "What language(s) would you like to install ?\nEnglish is the built-in language.")
  84.           (help "This will install locale files for other languages than English.")
  85.       (choices "Norsk" "Svenska")
  86.       (default 0)
  87.    )
  88. )
  89.  
  90. (set catdir (tackon destdir catdir))
  91. (makedir catdir)
  92.  
  93. (if (bitand 1 catalog)
  94.    (copylib
  95.       (source "Catalogs/norsk/mfinger.catalog")
  96.       (dest (tackon catdir "norsk"))
  97.    )
  98. )
  99.  
  100. (if (bitand 2 catalog)
  101.    (copylib
  102.       (source "Catalogs/svenska/mfinger.catalog")
  103.       (dest (tackon catdir "svenska"))
  104.    )
  105. )
  106.  
  107. ; install optional AmIRC script ==============================================
  108.  
  109. (if
  110.   (askbool
  111.     (prompt "\n\nDo you want to install mFinger.amirx?\nIt's an AmIRC ARexx script to finger someone using mFinger.")
  112.     (help " Install an optional ARexx script that will enable you to use mFinger from AmIRC?")
  113.   )
  114.   ((set destdir
  115.       (askdir
  116.         (prompt "Where should the script be installed?")
  117.         (help "Install the script in the rexx directory of AmIRC.")
  118.         (default "s:")
  119.       )
  120.    )
  121.    ((set file "Rexx/mFinger.AMIRX")
  122.     (installmf)
  123.    )
  124.   )
  125. )
  126.  
  127. (exit)
  128.  
  129.